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| EDTSCHMSUBS = change mode SUBSTITUTE command 16-Sep-1984 ; 9 38:29 VAX-11 Bliss-32 V reg Page 1 
4-Sep-1984 22:47 DISKSVMSMASTER: cto OSRe CHMSUBS.BLI;1 (1) | 


; 1 0001 ZTITLE "EDTSCHMSUBS = change mode SUBSTITUTE command’ 

; ¢ Bn08 MODULE EDTSCHMSUBS ( ! Change mode SUBSTITUTE command 

; Z Bobz om = *v04-000' ! File: CHMSUBS.BLI Edit: JBS1008 
; 5 Booe 1 BEGIN 
; 6 B08 1! 
: 7 S444 } LRAT AEEEEEEERRREEEEEKEEREEE 

; 8 '® * 

3 o 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
H 1) 8013 : :* ALL RIGHTS RESERVED. > 

° Mie ® | 
3 i§ $018 1 !* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorice * 

; #614 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

‘7. 0015 1 !* INCLUSION OF tHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
B42 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: 13 itt : 7 TRANSFERRED. » 

4 ‘® ® | 
; & 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ae 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $$ b05§ : 1* CORPORATION. * | 
3 i® * 

>; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
; & 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; @& 0026 1 !* * | 
;. 2 0027 1 !* * 

: 28 0028 1 ee meee ee eee REAR ARE RARER REE AERAEREEEREAAAAEAARAARAEARARARETEEA EE E REE 
: 9 0029 1! 
: $6 0030 1 

cae 0031 1 !+¢ : 
a. Boss 1 ! FACILITY: EDT -- The DEC Standard Editor 

cae 00335 1! 

3; 0034 1 ! ABSTRACT: 
; 2» 0035 1! 
g 36 B938 : This module executes the change mode SUBSTITUTE (S) command. 
; 3 onse : } ENVIRONMENT: Runs at any access mode - AST reentrant | 
; 40 0040 1 ! AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

> 41 0041 1! 

i: 42 0042 1 ! MODIFIED BY: 

; 643 0043 1! 

; (44 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created b 

; 0045 13! extracting the routine EDT$$SUB_CMD from module CHANGE .BLI. 
2 0046 1 ! 1-002 - Regularize headers. JBS 04-Mar-1981 | 
3; «6OF 0047 1 ! 1-005 = Use new message codes. JBS 04-Aug-1981 
; 0048 1 ! 1-004 - New cursor position on. backwards substitute. SMB 28-Oct-1981 
; «649 0049 1 ! 1-005 = Delete initial om oy running through PRETTY. JBS 02-Nov-1981 
; 3 0050 1 ! 1-006 - Rework edit 1-004 to cond ish che same thing without changing 
, 9) 0051 1! the cursor position from V2. SMB hae 

5 Be tt 1 ! 1-007 = Remove EDT$$G_LN_NO for new screen update logic. JBS 29-Sep-1982 
; ¢7 R27 : : 1-008 - Pass the correct number of Lines to EDTSSDEL STXTLN. JBS 08-Oct-1982 | 
: 55 0055 1 | 
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Ss ss a ss ss ss a ss 5 ss ts a te ts ts ts tt 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTS$SUB_CMD; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

! EXTERNAL REFERENCES: 


' 
i 
i 
i 
i] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
! In the routine 


pr188e §98:58i29 | Hable tea eo e skeScumsues.anzs4° 


' Execute the SUBSTITUTE command 


(2 


2 
) 


EXTERNAL ROUTINE 
E ! Delete whole Lines of text 


D 13 
EDTSCHMSUBS EDTSCHMSUBS = change mode SUBSTITUTE command 1o~300" 138% 0 $3:29 VAX-11 Bliss-32 oT ed Page 3 
v04-000 EDTSSSUB_CMD = change mode SUBSTITUTE command 14-Sep-1984 12:22:47 DISKSVMSMASTER: CEDT.SRCJCHMSUBS.BLI;1 (3) 
; 30 ree } ZSBTTL "EDTSSSUB_CMD = change mode SUBSTITUTE command’ 
; 38 066 : GLOBAL ROUTINE EDT$$SUB_CMD ! Change mode SUBSTITUTE command 
: «494 0664 1 
; 665 1 !++ 
: 38 bee : FUNCTIONAL DESCRIPTION: 
; 0668 1! This routine implements the SUBSTITUTE command. Just search for the 
3 106 be8n : } search string, delete it and insert the replace string. 
; 101 671 1 ! FORMAL PARAMETERS: 
3 Ine 672 1! 
: 10 0673 1! NONE 
> 104 0674 1! 
; 105 0675 1 ! IMPLICIT INPUTS: 
: 106 0676 1! 
; 107 0677 1! EDTS$$G_DIR 
; 108 0678 1! EDTSS$A_LN 
: 109 0679 1! EDT$$G_SEA_STRLEN 
; 110 0680 1! EDTS$T_SEA_ 
> 6111 0681 1! EDTS$$G_SUB_STRLEN 
: 11g 0682 1! EDTS$$T_SUB_STR 
s 41 068 1! 
3; 6116 0684 1 ! IMPLICIT OUTPUTS: 
3 6115 0685 1! 
: 4116 0686 1! NONE 
: (117 0687 1! 
; #118 0688 1 ! ROUTINE VALUE: 
3; 6119 0689 1! ; 
s 120 0690 1! 1 = substitution made, 0 = not made (cor oo! ( or some error) 
> 121 0691 1! 
3 1$¢ 069 1 ! SIDE EFFECTS: 
; te 0693 1! 
; 124 0694 1! NONE 
7 Te 0695 1! 
: 126 0696 1 !-- 
: 127 0697 1 
: 128 0698 BEGIN 
; 129 
: 130 
ett 
x 9 ¢ 
s * 
_s 
> oe 
ty 
s 1 
“Sh 
os 
a 2 
oi. 
ee 
ee 
a 
.. 


44 EDTSSINS_CHS, ! Insert a string of characters which may include carriage returns 
878 EDTSSMSG_BELL : NOVALUE, ! Output a message to the terminal with a warning bell 
704 EDTSSSTR_SEACMD, ' Search for a specific string 

35 0705 EDTS$CS_CEFT ' Move left a character 

36 9706 EDTS$CS_RIGHT; i Move right a character 

38 bo wide; 

39 709 EDTS$$G_DIR ! The current direction. 

40 0710 EDTSSA_LN PT ' Current character pointer 

41 ori EDT$$G_SEA_STRLEN, i Length of current search string 

4 ay EDTSST_SEA_STR, ' Current search string 

4 71 EDT$$G_SUB_STRLEN, ' Length of subs string : 

44 714 EDT$$T_SUB_STR, ' Current SUBSTITUTE string 

2 Bole EDTS$A_CUR_BUF : REF TBCB_BLOCK; ' Current text buffer control block 


S3 


13 
UBS = change mode SUBSTITUTE command 1ese 
CMD = change mode SUBSTITUTE command 14-Se 


MESSAGES ((STRNOTFND, BADRANGE)); 
LOCAL 


NUM-LINES : LN_BLOCK, 
END~POS; 


caus 


p-1984 00:12:5 VAX=11 Bliss-32_V4.0-76 Pa 4 
eats ri 99:33:23 NT EKSVMEMASTERSCEDT. Sac SCHMSUBS.BLI:1 9° (33 | 


1+ 
Search for the string. 


IF (.EDT$$G_DIR EQL DIR_BACKWARD) 
THEN 


1+ 
Move back one position before starting the search 


aa * EDTSSSTR_SEACMD (EDTSS$T_SEA_STR, .EDT$S$G_SEA_STRLEN, 1, .EDT$$G_DIR) 
STS = EDTS$STR_SEACMD (EDTS$T_SEA_STR, .EDTS$G_SEA_STRLEN, 0, .EDTS$$G_DIR); 

IF (.STS EQL 1) 

THEN 


'¢ 

: String was found, do the SUBSTITUTE. 

- BEGIN 

Move to the end of the string, counting the Lines involved. 
3 MOVELINE (EDTS$A_CUR_BUF CTBCB_CUR_LINJ, NUM_LINES); 
3 

4 

3 

4 

4 

| 


DECR I FROM .EDTS$G_SEA_STRLEN - 1 TO 0 DO 
EDTSSCS_RIGHT (J; 


SUBLINE (NUM_LINES, EDTS$A_CUR_BUF CTBCB_CUR_LINJ, NUM_LINES); 
ADDLINE (NUMBER ONE, NUM_LINESJ; 
a END_POS = .EDTSSA_LN_PTR; 


; Move back to the beginning. 


DECR OM 


I FROM .EDTS$G_SEA_STRLEN = 1 TO 0 DO 
EDTSSCS_LEFT (); 
'¢ 
: Make sure the string isn't too long. 


MEW Oo 0OOnN 


aon 


IF _(C.NUM_LINES CLNLHI NEQU 0) OR (.NUM_LINES CLN_MD] NEQU 0)) 


BEGIN 
EDTSSMSG_BELL (EDT$_BADRANGE); 
RETURN (0); 


SSSSSSESLSSSEVERRERAS IASI NSE AG ARORA S SENSO F UR SEES 


'¢ 
! Delete the string. 


PIII met st st tn tt st tk i kd dh td dd 
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EDTSCHMSUBS EDTSCHMSUBS = change mode SUBSTITUTE command 16-Sep-1984 :5 VAX=11 BLi Be v4.0-7 

042000 EDTS$suB- CMD = change mode SUBSTITUTE command 14- Sep-1984 99: 38: 3 DISKSVMSMASTER: CEDT. se CHMSUBS.BLI;1 age ei 

; 206 774 3 I= | ; 
; o¢ ie EDTSSDEL_TXTLN (.NUM_LINES CLN_LOJ, .END_POS); : 
3 4 0777 ; Insert the replacement string. | : 
; 09 19 ‘ EDTSSINS_CHS (EDTS$T_SUB_STR, .EDT$$G_SUB_STRLEN); | : 
; 12 z ; If we are moving backward, then move back across the string | ‘ 
: 21 ? ' | : 
3 216 784 4 IF (.EDTS$G_DIR EQL DIR_BACKWARD) | : 
i gi 789 THEN | 
: 13 07 5 DECR I FROM .ED DIS$G G,SUB_STRLEN TO 1 DO : 
: 318 0788 eDTSScS_ierT (3 ; 
: 220 7 RETURN (1); | ; 
: eel 0791 END : 
3 ¢ Bre ELSE : 
2 §$7 145, Ma BEGIN : 
‘ 0796 { String was not found, EDTS$MSG_BELL an error. | 
; : 4 o798 IF (.STS EQL 0) THEN EDTS$MSG_BELL (EDT$_STRNOTFND); | 
: % 0800 RETURN (0); ; 
; 33] 9801 2 END; | : 
; $38 0808 1 END; ! of routine EDTS$SUB_CMD : 


-TITLE EDTSCHMSUBS EDTSCHMSUBS - change mode SUBSTITUT 
; E command 
-IDENT \V04-000\ 


-EXTRN EDTSSDEL_TXTLN, EDTSSINS_CHS | 
-EXTRN EDTSSMSG BELL, EDTSS$STR_SEACMD 
EXTRN EDTSSCS._CEFT, EDTS$$CS_RIGHT | 
“EXTRN EDTS$G_BIR, EDTS$A_LN-PTR 
EXTRN EDTS$$G~SEA. STRLEN | 
EXTRN EDTS$T~SEA =SIR. EDTS$G_ SUB. STRLEN | 
EXTRN EDTS$ST~ EDT$$A7C 
EXTRN EDTS_ STRNOTEND. EDTS *BRORANGE 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
O7FC 00000 ENTRY EDTSSSUB_ CMD, Save R2,R3,R4,R5.R6,R7,.RB,R,~; 0662 | 
5 
5A 000000006 00 9€ 00002 MOVAB EDT$$G_SUB_STRLEN, R10 : 
59 900000006 0 9€ 00009 MOVAB EDT$$CS_LEFT, : 
58 000000006 00 9€ 00010 MOVAB EDTS$$A_CUR_BUF, R8 : 
27 900000006 0 9E 00017 MOVAB EDTS$G"DIR> R : 
6 000000006 00 9€ 0001 MOV EDTSSC- SEASTRLEN, R6 : 
3E 08 C2 000 SUBL2 #8, SP : | 
1 66 DO 000 MOVL  EDf$$G_ SEA. STRLEN, R1 : 0733 | 
50 67 DO 00028 MOVL EDTS$G~DIRT RO : 0728 | 


d 


6E 


6E 


52 


EDTSCHMSUBS EDTSCHMSUBS = change mode SUBS 
04600 EDTSS$SUB_CMD ; 


1 

4 
0 

7E 

51 
000000006 00 

000000006 00 4 
01 9 

Q 
saat | 
06 Ad 06 
52 86 
000000006 00 00 
F6 52 
51 06 af 

50 6 

06 Ad 6E 
52 OA AO 
52 04 ag 

04 AE 5 

06 AE 51 
08 

0 

04 AE 
53 000000006 00 
52 66 
03 
69 00 

FA 52 

04 AE 

05 

02 AE 
08 

000000006 8F 
3A 
53 

7E 04 AE 
000000006 00 4 
000000006 00 
000000006 00 Os 
6 

OC 

6A 01 
69 03 
FA 98 

50 01 
Op 

000000006 er 

000000006 00 1 


TITUT 
= change mode SUBSTIT 


E command 
UTE command 


1 
1 
12 000 
DD ; p 
DD 00 
11 8 4 
DD 000 g 
D4 000 
pp Q03A 
F 000 
FB 0004 
D1 0004 
{3 Spee 
3 Hs 
28 00054 
DO 00059 
11 Beoee 
FB 94 
F4 0006 
BO 00068 
0 0006C 
C3 OO06F 
dO 4 toe 
d9 00078 
DO 0007C 
BO 00080 
D6 00084 
12 00086 
B6 00088 
D0 00088 
dO 494 
11 0009 
FB 00097 
F4 QOO9A 
BS 0009D 
12 000A0 
BS OO0A2 
13 QO0A5 
DD O00A7 
11 QOOAD 
po QOOAF 
C 00081 
FB Bone? 
DD O000BC 
oF Bp OBE 
FB QO0C 
Dd Bence 
12 000CD 
C1 OOOCF 
11 Q00D 
Fe 000 
F> 0000 
»? 0008 
Ie 
i 
FB 0089 


gfe 
4-Se 


1$: 
2$: 


3$: 


4$: 
5$: 


10$: 


-1984 
p-19 4 


72:28:27 DISKSVMSMASTER-CEDT. SRCICHMSUBS.BLI; 1° 


DT$$CS_RIGHT 
D, SAVE 

“BUF, RO 

6(RO), NUM_LINES 
NES, R2 


OV. OMUOCU LHS O—--Ce-—-0Oe 


CROW SRESESS: Sucocresso= ( Drwe2Raw— 


OMA Poco 


SAUN PTR, END_POS 
GDTSS6_SEA_STRLEN, I 
#0, EDTSS$CS_LEFT 
NUM_LINES+4 
NUM_LINES+2 


#EDTS_BADRANGE 


#1, EDTS$G_SUB_STRLEN, I 
#0, FDTSSCS_LEFT 

1, 11$ 

ai, RO 

STS 


168 
HEDTS. STRNOTFND 
#1, EDTSSMSG_BELL 


ge 6 


(3) 


Vou GOO ED TESCUBCERD Senet ees esa e TT TaTE manand if: $e0-1944 19:38:29 | DTSbumSnaSPensclot sacScumsuas.eur:5°% «3 
50 Ps OREO 168: CLL RO ; 0803 


; Routine Size: 243 bytes, Routine Base: _EDTSCODE + 0000 


— | 


; te 0804 1 
; 5 0805 1 !<BLF/PAGE> 


. ee ee Complete 


13 
ERTS HMSUBS EDTESeUS eR = change mode SUBSTITUTE command 1b-Sep -1984 ¢ 99: \g: 23 VAX-11 Bliss-32 V4.0-7 Page 8 
EDTSSSUB_CMD = change mode SUBSTITUTE command 14-Sep P= 1984 :2 DISKSVMSMASTER: choi sac CHMSUBS.BLI;1 (4) | 
7 0806 1 END ! of module EDTSCHMSUBS 
338 0807 1 
9 08 0 ELUDOM | 
| 
; PSECT SUMMARY | 
; Name Bytes Attributes | 
: EDTSCODE 243 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
DS OA Ee ee eee Symbols -------- Pages Processing | 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: :LEDT. SRCJEDT L32:1 377 35 9 40 00:00.2 | 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
3 COMMAND QUALIFIERS | 
P4 SLESS/CHECE= (FIELD. SME TIAL OPT IAI ZE) /NOTRACEBACK/L SL 158: CHMSUBS/08.)908J8s CHRSUBS MSRC$: CHMSUBS .BLI/UPDATE=(ENHS$: CHMSUBS 
: Size: 243 code + 0 data bytes 
; Run Time: 00:15.4 
; Elapsed Time: 00:19.0 
3 Lines/CPU Min: A 
; emt Ak a 1193 
; Used: 117 pages | 
° | 


DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


